home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00745_DE- RN lec.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  3.0 KB  |  87 lines
  1. on exitFrame
  2.   global gLecLabel, g1erSprLoc, gVidDuree, gLabel, gScopeDe
  3.   if gScopeDe(GetTime) >= gVidDuree then
  4.     set gLecLabel to "DE:lec:fin"
  5.     set gLabel to "DE:mon"
  6.   end if
  7.   go(label(gLecLabel))
  8. end
  9.  
  10. on renseigne texte, stile, nCurs
  11.   set the text of cast "Zone Info" to " "
  12.   set the textStyle of field "ZONE INFO" to "plain"
  13.   set the textStyle of field "ZONE INFO" to stile
  14.   set the text of cast "Zone Info" to texte
  15.   curseur(nCurs)
  16. end
  17.  
  18. on idle
  19.   global gBarChron, gSurvolAct, gSurvolPrec, gListSuj, gMessDef1, gMaxBoutons, gEtaSpir, gMessSty1, g1erSprChr, g1erSprNav, g1erSprLoc, gListCod, gEtudAct, gTraduit
  20.   if not (the mouseDown) then
  21.     set MsCast to the mouseCast
  22.     if not gEtaSpir then
  23.       set gSurvolAct to 0
  24.       repeat with monSpr = g1erSprChr to gMaxBoutons
  25.         if rollOver(monSpr) and (the castNum of sprite monSpr <> 0) then
  26.           set gSurvolAct to monSpr
  27.           exit repeat
  28.         end if
  29.       end repeat
  30.       if gSurvolAct <> gSurvolPrec then
  31.         if gSurvolAct <> 0 then
  32.           if (gSurvolAct >= g1erSprChr) and (gSurvolAct <= (g1erSprChr + 9)) then
  33.             gBarChron(survol, gSurvolAct, the number of cast "Zone info")
  34.           end if
  35.           if gSurvolAct = g1erSprNav then
  36.             renseigne(getAt(gTraduit, 12), "bold", 7)
  37.           end if
  38.           if gSurvolAct = (g1erSprNav + 1) then
  39.             renseigne(getAt(gTraduit, 1) && getAt(gTraduit, 2) && getAt(gTraduit, 3), "bold", 7)
  40.           end if
  41.           if gSurvolAct = (g1erSprNav + 2) then
  42.             renseigne(getAt(gTraduit, 1) && getAt(gTraduit, 2) && getAt(gTraduit, 5), "bold", 7)
  43.           end if
  44.           if gSurvolAct = (g1erSprNav + 3) then
  45.             renseigne(getAt(gTraduit, 26) && getAt(gTraduit, 4), "bold", 7)
  46.           end if
  47.           if gSurvolAct = (g1erSprNav + 4) then
  48.             renseigne(getAt(gTraduit, 1) && getAt(gTraduit, 2) && getAt(gTraduit, 7), "bold", 7)
  49.           end if
  50.           if gSurvolAct = (g1erSprNav + 5) then
  51.             renseigne(getAt(gTraduit, 27), "bold", 7)
  52.           end if
  53.           if gSurvolAct = g1erSprLoc then
  54.             renseigne(getAt(gTraduit, 87), "bold", 1)
  55.           end if
  56.           if gSurvolAct = (g1erSprLoc + 1) then
  57.             if word 1 of the name of cast the castNum of sprite gSurvolAct = "BTGPOS" then
  58.               renseigne(getAt(gTraduit, 50), "bold", 1)
  59.             else
  60.               renseigne(getAt(gTraduit, 53), "bold", 1)
  61.             end if
  62.           end if
  63.         else
  64.           gBarChron(fleche, 0, 1, 1)
  65.           renseigne(gMessDef1, gMessSty1, -1)
  66.         end if
  67.         set gSurvolPrec to gSurvolAct
  68.         updateStage()
  69.       end if
  70.     else
  71.       if MsCast <> -1 then
  72.         if the number of words in the name of cast MsCast = 2 then
  73.           if (word 2 of the name of cast MsCast = "1") or (word 2 of the name of cast MsCast = "0") then
  74.             curseur(1)
  75.           else
  76.             curseur(-1)
  77.           end if
  78.         else
  79.           curseur(-1)
  80.         end if
  81.       else
  82.         curseur(-1)
  83.       end if
  84.     end if
  85.   end if
  86. end
  87.